home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / SHARE / prog / POVRAY / LNSEFCTS.ZIP / LENS.INC < prev    next >
Encoding:
Text File  |  1997-07-18  |  11.2 KB  |  316 lines
  1. // ******************************************************************
  2. // PREDEFINED LENS EFFECTS INCLUDE FILE FOR PERSISTENCE OF VISION 3.x
  3. // ******************************************************************
  4. //
  5. // Created by Chris Colefax, 18 July 1997
  6. //
  7. // NOTE: This file requires that LnsEfcts.inc be properly installed
  8. // See "LnsEfcts.txt" for more information.
  9. //
  10. // ******************************************************************
  11.  
  12. // CHECK LENS EFFECT TYPE
  13. // **********************
  14.    #ifndef (effect_type) #declare effect_type = ""
  15.       #else #declare effect_type = strupr(effect_type) #end
  16.    #ifndef (options_only) #declare options_only = false #end
  17.    #declare _LE_created = false
  18.  
  19. // RESET LENS EFFECT OPTIONS
  20. // *************************
  21.    #declare glow_type = 0
  22.    #declare glow_colour = <1, 1, 1>
  23.    #declare glow_scale = <1, 1, 1>
  24.    #declare glow_rotate = 0
  25.    #declare glow_intensity = 1
  26.  
  27.    #declare rays_type = 0
  28.    #declare rays_colour = <1, 1, 1>
  29.    #declare rays_scale = <1, 1, 1>
  30.    #declare rays_rotate = 0
  31.    #declare rays_intensity = 1
  32.    #declare rays_seed = 0
  33.    #declare rays_frequency = 1
  34.  
  35.    #declare streak_type = 0
  36.    #declare streak_colour = <1, 1, 1>
  37.    #declare streak_scale = <1, 1, 1>
  38.    #declare streak_rotate = 0
  39.    #declare streak_intensity = 1
  40.    #declare streak_seed = 0
  41.    #declare streak_to_centre = false
  42.  
  43.    #declare spots_type = 0
  44.    #declare spots_colour = <1, 1, 1>
  45.    #declare spots_scale = <1, 1, 1>
  46.    #declare spots_rotate = 0
  47.    #declare spots_intensity = 1
  48.    #declare spots_seed = 0
  49.    #declare spots_to_centre = true
  50.    #declare spots_frequency = 1
  51.    #declare spots_spacing = 1
  52.  
  53.    #declare custom_effect_file = ""
  54.  
  55. // SET LENS EFFECT OPTIONS
  56. // ***********************
  57.    #if (strcmp(effect_type, "CAMERA") = 0)
  58.       #declare glow_type = 4
  59.       #declare glow_colour = <1.1, .3, .4>
  60.       #declare rays_type = 1
  61.       #declare spots_type = 1
  62.       #declare spots_colour = <1.3, 1, .8>
  63.       #declare spots_intensity = 1.5
  64.       #declare spots_seed = 60
  65.       #declare _LE_created = true #end
  66.  
  67.    #if (strcmp(effect_type, "CAMERA2") = 0)
  68.       #declare glow_type = 3
  69.       #declare glow_colour = <.9, 1, 1.1>
  70.       #declare glow_scale = <1, 1, 1> * 1.2
  71.       #declare rays_type = 1
  72.       #declare rays_frequency = .5
  73.       #declare streak_type = 2
  74.       #declare streak_intensity = .2
  75.       #declare spots_type = 1
  76.       #declare spots_colour = <1.1, 1.2, 1.3>
  77.       #declare spots_intensity = 1.7
  78.       #declare spots_seed = 45
  79.       #declare _LE_created = true #end
  80.  
  81.    #if (strcmp(effect_type, "CANDLE") = 0)
  82.       #declare glow_type = 5
  83.       #declare glow_colour = <1.2, 1.2, .6>
  84.       #declare glow_scale = <1, 1, 1> * .6
  85.       #declare glow_intensity = .5
  86.       #declare rays_type = 1
  87.       #declare rays_colour = <1.1, 1.1, .5>
  88.       #declare rays_scale = <1, 1, 1> * .6
  89.       #declare rays_intensity = 2
  90.       #declare rays_frequency = .4
  91.       #declare streak_type = 1
  92.       #declare streak_colour = <1.3, 1.2, .6>
  93.       #declare streak_scale = <1, 1, 1> * .7
  94.       #declare _LE_created = true #end
  95.  
  96.    #if (strcmp(effect_type, "DIAMOND") = 0)
  97.       #declare glow_type = 2
  98.       #declare glow_colour = <.7, .3, 1.1>
  99.       #declare rays_type = 7
  100.       #declare spots_type = 4
  101.       #declare spots_colour = <1.1, .5, 1.2>
  102.       #declare spots_frequency = 1.4
  103.       #declare _LE_created = true #end
  104.  
  105.    #if (strcmp(effect_type, "HEADLIGHT") = 0)
  106.       #declare glow_type = 5
  107.       #declare glow_colour = <.3, 1, 1.6>
  108.       #declare glow_scale = <1, .75, 1>
  109.       #declare glow_intensity = 1.5
  110.       #declare rays_type = 6
  111.       #declare rays_intensity = .5
  112.       #declare streak_type = 7
  113.       #declare streak_colour = <.6, .9, 1.4>
  114.       #declare streak_scale = <.8, .5, 1>
  115.       #declare _LE_created = true #end
  116.  
  117.    #if (strcmp(effect_type, "HEADLIGHT2") = 0)
  118.       #declare glow_type = 5
  119.       #declare glow_colour = <1, 1.4, .9>
  120.       #declare glow_scale = <1.4, .8, 1>
  121.       #declare rays_type = 2
  122.       #declare rays_scale = <.6, .4, .4>
  123.       #declare streak_type = 7
  124.       #declare streak_colour = <1.3, 1, .8>
  125.       #declare streak_scale = <1, 1, 1> * .6
  126.       #declare spots_type = 5
  127.       #declare spots_colour = <1.5, 1.3, 1>
  128.       #declare spots_scale = <1.4, .8, 1>
  129.       #declare spots_frequency = 1.5
  130.       #declare spots_seed = 10
  131.       #declare _LE_created = true #end
  132.  
  133.    #if (strcmp(effect_type, "RAINBOW2") = 0)
  134.       #declare glow_type = 7
  135.       #declare rays_type = 5
  136.       #declare streak_type = 3
  137.       #declare streak_scale = <1, 1, 1> * .7
  138.       #declare spots_type = 3
  139.       #declare spots_intensity = 1.3
  140.       #declare _LE_created = true #end
  141.  
  142.    #if (strcmp(effect_type, "SOFTGLOW") = 0)
  143.       #declare glow_type = 1
  144.       #declare glow_colour = <1.2, 1, .5>
  145.       #declare rays_type = 4
  146.       #declare rays_colour = <1.2, 1.1, .7>
  147.       #declare spots_type = 2
  148.       #declare spots_colour = <1.2, 1.1, .7>
  149.       #declare spots_seed = 80
  150.       #declare _LE_created = true #end
  151.  
  152.    #if (strcmp(effect_type, "SPARKLE") = 0)
  153.       #declare glow_type = 2
  154.       #declare glow_colour = <1, .9, .7>
  155.       #declare glow_scale = <1, 1, 1> * .3
  156.       #declare rays_type = 3
  157.       #declare rays_scale = <1, 1, 1> * .4
  158.       #declare streak_type = 5
  159.       #declare streak_scale = <1, 1, 1> * .4
  160.       #declare streak_rotate = -15
  161.       #declare _LE_created = true #end
  162.  
  163.    #if (strcmp(effect_type, "SPARKLE2") = 0)
  164.       #declare glow_type = 5
  165.       #declare glow_scale = <1, 1, 1> * .6
  166.       #declare rays_type = 2
  167.       #declare rays_scale = <1, 1, 1> * .6
  168.       #declare _LE_created = true #end
  169.  
  170.    #if (strcmp(effect_type, "SPOTLIGHT") = 0)
  171.       #declare glow_type = 1
  172.       #declare glow_scale = <1, 1, 1> * .4
  173.       #declare rays_type = 2
  174.       #declare rays_scale = <1, 1, 1> * .5
  175.       #declare streak_type = 4
  176.       #declare _LE_created = true #end
  177.  
  178.    #if (strcmp(effect_type, "SPOTLIGHT2") = 0)
  179.       #declare glow_type = 1
  180.       #declare glow_colour = <.6, 1, 1.4>
  181.       #declare glow_scale = <1, 1, 1> * .5
  182.       #declare rays_type = 6
  183.       #declare rays_colour = <.6, 1, 1.4>
  184.       #declare rays_intensity = 3
  185.       #declare rays_frequency = 7/9
  186.       #declare spots_type = 8
  187.       #declare spots_colour = <.6, 1, 1.4>
  188.       #declare spots_scale = <1, 1, 1> * .4
  189.       #declare spots_seed = 20
  190.       #declare spots_frequency = 1.5
  191.       #declare _LE_created = true #end
  192.  
  193.    #if (strcmp(effect_type, "STAR") = 0)
  194.       #declare glow_type = 1
  195.       #declare glow_colour = <.6, .9, 1.2>
  196.       #declare glow_scale = <1, 1, 1> * .3
  197.       #declare rays_type = 3
  198.       #declare rays_scale = <1, 1, 1> * .5
  199.       #declare rays_frequency = .6
  200.       #declare rays_intensity = 3
  201.       #declare streak_type = 6
  202.       #declare streak_colour = <.8, .9, 1.1>
  203.       #declare streak_scale = <1, 1, 1> * .5
  204.       #declare streak_rotate = -15
  205.       #declare _LE_created = true #end
  206.  
  207.    #if (strcmp(effect_type, "STAR2") = 0)
  208.       #declare glow_type = 1
  209.       #declare glow_colour = <.8, 1, 1.2>
  210.       #declare glow_scale = <1, 1, 1> * .5
  211.       #declare rays_type = 2
  212.       #declare rays_scale = <.5, .7, 1>
  213.       #declare rays_frequency = 1.5
  214.       #declare streak_type = 8
  215.       #declare streak_colour = <.9, 1, 1.1>
  216.       #declare streak_scale = <1, 1, 1> * .6
  217.       #declare streak_rotate = 90
  218.       #declare _LE_created = true #end
  219.  
  220.    #if (strcmp(effect_type, "SUN") = 0)
  221.       #declare glow_type = 4
  222.       #declare glow_colour = <1.5, 1.1, .3>
  223.       #declare glow_scale = <1, 1, 1> * 1.3
  224.       #declare rays_type = 3
  225.       #declare rays_frequency = 1.5
  226.       #declare spots_type = 6
  227.       #declare spots_colour = <1.3, .9, .3>
  228.       #declare spots_frequency = 1.4
  229.       #declare _LE_created = true #end
  230.  
  231.    #if (strcmp(effect_type, "SUN2") = 0)
  232.       #declare glow_type = 2
  233.       #declare glow_colour = <1.1, .6, .2>
  234.       #declare rays_type = 1
  235.       #declare rays_colour = <1.1, .8, .2>
  236.       #declare rays_scale = <1, 1, 1> * 1.2
  237.       #declare rays_intensity = 2
  238.       #declare rays_seed = 4
  239.       #declare streak_type = 7
  240.       #declare streak_colour = <1.1, .7, .2>
  241.       #declare streak_scale = <1, 1, 1> * .8
  242.       #declare streak_to_centre = true
  243.       #declare spots_type = 5
  244.       #declare spots_colour = <1.1, .8, .2>
  245.       #declare spots_scale = <1, 1, 1> * .8
  246.       #declare spots_intensity = .5
  247.       #declare spots_seed = 4
  248.       #declare _LE_created = true #end
  249.  
  250.    #if (strcmp(effect_type, "SUN3") = 0)
  251.       #declare glow_type = 5
  252.       #declare glow_colour = <1.5, 1.2, .3>
  253.       #declare glow_scale = <1, 1, 1> * 1.3
  254.       #declare glow_intensity = 1.5
  255.       #declare rays_type = 7
  256.       #declare spots_type = 1
  257.       #declare spots_colour = <1.5, 1.2, .3>
  258.       #declare spots_frequency = 2
  259.       #declare _LE_created = true #end
  260.  
  261.    #if (strcmp(effect_type, "UNDERSEA") = 0)
  262.       #declare glow_type = 1
  263.       #declare glow_colour = <.2, 1.3, .8>
  264.       #declare rays_type = 8
  265.       #declare streak_type = 8
  266.       #declare streak_colour = <.6, 1.1, .9>
  267.       #declare streak_scale = <1, 1, 1> * .8
  268.       #declare streak_to_centre = true
  269.       #declare streak_intensity = .7
  270.       #declare _LE_created = true #end
  271.  
  272.    #if (strcmp(effect_type, "RANDOM") = 0)
  273.       #ifndef (effect_seed) #declare effect_seed = 0 #end
  274.       #declare _LE_rseed = seed(effect_seed)
  275.       #declare effect_colour = <rand(_LE_rseed), rand(_LE_rseed), rand(_LE_rseed)>
  276.       #declare glow_type = int(rand(_LE_rseed) * 7.9) + 1
  277.       #declare glow_scale = <1, 1, 1> * (.7 + rand(_LE_rseed) * .6)
  278.       #declare glow_intensity = .7 + rand(_LE_rseed) * .6
  279.       #declare rays_type = int(rand(_LE_rseed) * 8.9)
  280.       #declare rays_scale = <1, 1, 1> * (.7 + rand(_LE_rseed) * .6)
  281.       #declare rays_intensity = .7 + rand(_LE_rseed) * .6
  282.       #declare rays_frequency = .8 + rand(_LE_rseed) * 1.2
  283.       #declare rays_seed = int(rand(_LE_rseed) * 10000)
  284.       #declare streak_type = int(rand(_LE_rseed) * 8.9)
  285.       #declare streak_scale = <1, 1, 1> * (.5 + rand(_LE_rseed))
  286.       #declare streak_intensity = .7 + rand(_LE_rseed) * .6
  287.       #declare streak_rotate = int(rand(_LE_rseed) * 7.9) * 15
  288.       #declare streak_seed = int(rand(_LE_rseed) * 10000)
  289.       #declare streak_to_centre = int(rand(_LE_rseed) * 1.25)
  290.       #declare spots_type = int(rand(_LE_rseed) * 8.9)
  291.       #declare spots_scale = <1, 1, 1> * (.7 + rand(_LE_rseed) * .6)
  292.       #declare spots_intensity = .7 + rand(_LE_rseed) * .6
  293.       #declare spots_frequency = .8 + rand(_LE_rseed) * 1.2
  294.       #declare spots_seed = int(rand(_LE_rseed) * 10000)
  295.       #declare _LE_created = true #end
  296.  
  297.    #if (_LE_created = false)
  298.       #if (strcmp(effect_type, "RAINBOW") != 0)
  299.          #warning "You have not specified a correct effect_type!  Using \"Rainbow\" effect.\r\n" #end
  300.       #declare glow_type = 6
  301.       #declare glow_scale = <1, 1, 1> * 1.2
  302.       #declare rays_type = 3
  303.       #declare streak_type = 6
  304.       #declare streak_intensity = .3
  305.       #declare spots_type = 8
  306.       #declare spots_seed = 10
  307.       #declare spots_frequency = .8
  308.       #declare _LE_created = true #end
  309.  
  310. // CREATE LENS EFFECT
  311. // ******************
  312.    #if (options_only = false)
  313.       #include "LNSEFCTS.INC"
  314.       global_settings {max_trace_level 20}
  315.    #end
  316.